Imports System.Data.SqlClient
Imports ModuloAdministraciondeEnvios.PresentationLayer


Namespace PresentationLayer
    Public Class FrmBuscaOrigen

        Private Sub FrmBuscaOrigen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            StringComando = "SELECT Cliente.IDCliente, Cliente.Nombre, Cliente.Domicilio, Cliente.CUIT, Localidad.Nombre AS Localidad, Localidad.CodigoPostal "
            StringComando += "FROM Cliente INNER JOIN Localidad ON Cliente.Localidad = Localidad.IDLocalidad"

            Dim Conecta As New SqlConnection(StringConecta)
            Conecta.Open()
            Comando = New SqlCommand(StringComando, Conecta)


            Adapter = New SqlDataAdapter(StringComando, Conecta)
            Ds = New DataSet
            Adapter.Fill(Ds, "Clientes")

            DataGridViewClientes.DataSource = Ds.Tables("Clientes")


            Conecta.Close()
            Conecta.Dispose()

        End Sub



        Private Sub DataGridViewClientes_DoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridViewClientes.CellContentClick


            IdOrigen = Ds.Tables("Clientes").Rows(e.RowIndex).Item(0)
            NombreOrigen = Ds.Tables("Clientes").Rows(e.RowIndex).Item(1)
            DomicilioOrigen = (Ds.Tables("Clientes").Rows(e.RowIndex).Item(2))
            CUITOrigen = (Ds.Tables("Clientes").Rows(e.RowIndex).Item(3))
            LocalidadOrigen = Ds.Tables("Clientes").Rows(e.RowIndex).Item(4)
            CPOrigen = Ds.Tables("Clientes").Rows(e.RowIndex).Item(5)

            'FrmEnvios.RefrescarOrigen()


            Me.Close()



        End Sub

        Private Sub DataGridViewClientes_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridViewClientes.CellContentClick

        End Sub



    End Class
End Namespace